********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Upah_Karyawan;
Uses CRT;
Var
NK : String;
JLJK : Integer;
Upah : Real;
Begin
Clrscr;
Writeln ('Upah Karyawan');
Write ('Masukan NK:'); Readln(NK);
Write ('Masukan JLJK:'); Readln(JLJK);
IF JLJK<=48 THEN
Upah:= (JLJK * 6000);
Upah:= (48 * 6000 + (JLJK-48) * 7000);
Writeln ('NK:',NK);
Writeln ('JLJK:',JLJK);
Writeln ('Upah:',Upah:6:2);
Readln;
End.